home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / anim2.arc / ANIM1.BAS next >
BASIC Source File  |  1990-08-18  |  224b  |  11 lines
  1. 10 CLS
  2. 20 SCREEN 1
  3. 30 LINE (80,100)-(X,Y),1
  4. 31 LINE (80,100)-(X,Y),0
  5. 40 X=X-1:Y=Y+1:IF Y=50 THEN GOTO 60
  6. 50 GOTO 30
  7. 60 LINE (80,100)-(X,Y),1
  8. 61 LINE (80,100)-(X,Y),0
  9. 62 X=X+1:Y=Y-1:IF X>50 THEN GOTO 30
  10. 63 GOTO 60
  11.